home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / ICON_8 / TESTS / GC1.ICN < prev    next >
Text File  |  1990-03-02  |  285b  |  16 lines
  1. procedure main()
  2.    every 1 to 100 do {
  3.       write(&collections)
  4.       every 1 to 100 do
  5.          list(1000)
  6.       }
  7.    write("collecting ...")
  8.    collect()
  9.    every s := repl("x",1 to 1000) do {
  10.       cset(string(&lcase))
  11.       t := table()
  12.       set([s])
  13.       s[2 : 5]
  14.       }
  15. end
  16.